0 REM << RR38-1 >>
1 REM ----------------------
2 REM  *** STRING LOADER ***
3 REM    RUPERT REPORT #38
4 REM        C-64
5 REM
6 REM ----------------------
1000 M=49152 :REM HEX $C000
1010 READ B$
1020 IF B$="XX" THEN 1080
1030 GOSUB 2050
1040 CK=CK+B :REM CHECKSUM
1050 POKE M,B
1060 M=M+1
1070 GOTO 1010
1080 IF CK<>4526 THEN PRINT"DATA ERROR" : STOP
1090 PRINT"STRING ROUTINE IS LOADED":END
1100 DATA 4C,08,C0,41,48,4F,59,21
1110 DATA E0,00,F0,06,20,D2,FF,CA
1120 DATA D0,FA,C0,00,F0,09,20,D2
1130 DATA FF,CA,D0,FA,88,D0,F7,60
1140 DATA XX
2000 REM   * =====C-64 ONLY=======
2010 REM   REPLACE LINE 1030 WITH
2020 REM        GOSUB 2050
2030 REM   (ALSO CHANGE LINE 1000)
2040 REM  --  C-64 HEX TO DECIMAL --
2050 H$=LEFT$(B$,1) : L$=RIGHT$(B$,1)
2060 H=ASC(H$)-48+7*(H$>"9")
2070 L=ASC(L$)-48+7*(L$>"9")
2080 B=16*H+L
2090 RETURN